home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 16
/
64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64
/
ls 6
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
495b
|
28 lines
100 rem sprite 0 animieren
110 rem
120 rem vorbereitungen
130 rem
140 rem farben
150 poke 53280,5:poke53281,0
160 poke 53285,8:poke53286,11:poke53287,7
170 rem vic-register
180 xreg=53248:xlauf=53264
190 yreg=53249
200 rem
210 poke53276,1:rem sprite 0 multicolor
220 poke 2040,128:rem spritezeiger auf daten
230 pokexreg,160:pokeyreg,120:rem anfangspos.
240 poke 53269,1:rem sprite 0 an
250 rem
260 rem sprite animieren
270 rem
280 forbl=128to135
290 poke2040,bl
300 gosub360:rem warteschleife
310 nextbl
320 goto280
330 rem
340 rem warteschleife
350 rem
360 forw=1to100:nextw:return